home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / contrib / xmu / GNU / xmu-demo.el < prev    next >
Encoding:
Text File  |  1991-10-06  |  2.1 KB  |  49 lines
  1. ; -*-Emacs-Lisp-*-
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;
  4. ; File:         xmu-demo.el
  5. ; RCS:          $Header: $
  6. ; Description:  Example using the xmu-menu.el WINTERP-based menu server.
  7. ; Author:       Richard Hess, Consilium.
  8. ; Created:      Sat Oct  5 23:24:49 1991
  9. ; Modified:     Sat Oct  5 23:42:46 1991 (Niels Mayer) mayer@hplnpm
  10. ; Language:     Emacs-Lisp
  11. ; Package:      N/A
  12. ; Status:       X11r5 contrib tape release
  13. ;
  14. ; WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  15. ; XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. ;
  17. ; Permission to use, copy, modify, distribute, and sell this software and its
  18. ; documentation for any purpose is hereby granted without fee, provided that
  19. ; the above copyright notice appear in all copies and that both that
  20. ; copyright notice and this permission notice appear in supporting
  21. ; documentation, and that the name of Hewlett-Packard and David Betz not be
  22. ; used in advertising or publicity pertaining to distribution of the software
  23. ; without specific, written prior permission.  Hewlett-Packard and David Betz
  24. ; make no representations about the suitability of this software for any
  25. ; purpose. It is provided "as is" without express or implied warranty.
  26. ;
  27. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  28.  
  29. ; +---------------------------------------------------------------------------
  30. ;  WHO:    Richard Hess                    CORP:   Consilium
  31. ;  TITLE:  Staff Engineer                  VOICE:  [415] 691-6342
  32. ;      [ X-SWAT Team:  Special Projects ]  USNAIL: 640 Clyde Court
  33. ;  UUCP:   ...!uunet!cimshop!rhess                 Mountain View, CA 94043
  34. ; +---------------------------------------------------------------------------
  35.  
  36. (defvar *xmu_demo*   888
  37.   "[ NEW ]:  the key to be used when calling xmu-demo...")
  38.  
  39. (defun xmu-demo (&optional arg)
  40.   (interactive)
  41.   (let ((pick (xmu_popup *xmu_demo* t))
  42.     )
  43.     (if (not xmu-error)
  44.     (message (concat "XPICK: [" pick "]"))
  45.       )
  46.     ))
  47.  
  48. ;; ----------------------------------------------------------------------<eof>
  49.